home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / exampl_4 / frmabout.frm (.txt) < prev    next >
Visual Basic Form  |  1999-08-16  |  3KB  |  84 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "About..."
  5.    ClientHeight    =   2040
  6.    ClientLeft      =   4380
  7.    ClientTop       =   3585
  8.    ClientWidth     =   4680
  9.    ControlBox      =   0   'False
  10.    HelpContextID   =   240
  11.    Icon            =   "frmAbout.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2040
  16.    ScaleWidth      =   4680
  17.    StartUpPosition =   1  'CenterOwner
  18.    Begin VB.CommandButton Command1 
  19.       Caption         =   "&Ok"
  20.       Height          =   375
  21.       HelpContextID   =   610
  22.       Left            =   1320
  23.       TabIndex        =   0
  24.       Top             =   1560
  25.       WhatsThisHelpID =   610
  26.       Width           =   1935
  27.    End
  28.    Begin VB.Label Label4 
  29.       Caption         =   "Timer Key-Press Events.....The best way."
  30.       Height          =   255
  31.       Left            =   120
  32.       TabIndex        =   5
  33.       Top             =   840
  34.       Width           =   4455
  35.    End
  36.    Begin VB.Label Label3 
  37.       Caption         =   "WAV Play."
  38.       Height          =   255
  39.       Left            =   120
  40.       TabIndex        =   4
  41.       Top             =   600
  42.       Width           =   4455
  43.    End
  44.    Begin VB.Label Label2 
  45.       Caption         =   "MIDI Play."
  46.       Height          =   255
  47.       Left            =   120
  48.       TabIndex        =   3
  49.       Top             =   360
  50.       Width           =   4455
  51.    End
  52.    Begin VB.Label Label1 
  53.       Caption         =   "Bitmap-Block-Transfer."
  54.       Height          =   255
  55.       Left            =   120
  56.       TabIndex        =   2
  57.       Top             =   120
  58.       Width           =   4455
  59.    End
  60.    Begin VB.Label lblVERSION 
  61.       Caption         =   "Version Info"
  62.       Height          =   255
  63.       Left            =   120
  64.       TabIndex        =   1
  65.       Top             =   1200
  66.       WhatsThisHelpID =   620
  67.       Width           =   2655
  68.    End
  69. Attribute VB_Name = "frmAbout"
  70. Attribute VB_GlobalNameSpace = False
  71. Attribute VB_Creatable = False
  72. Attribute VB_PredeclaredId = True
  73. Attribute VB_Exposed = False
  74. 'Not much explanation is needed here.
  75. Private Sub Command1_Click()
  76.     Unload Me
  77. End Sub
  78. Private Sub Form_Load()
  79. 'Display the APPs version in the label
  80.     lblVERSION.Caption = _
  81.     "Version: " & App.Major & "." & App.Minor & "." _
  82.     & App.Revision
  83. End Sub
  84.